.TITLE	EXPOL
	.IDENT	/02/
 
;
; Copyright (c) 1995-1999 by Mentec, Inc., U.S.A.
; All rights reserved
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
; VERSION 02
;
; T. J. MILLER 23-OCT-77
;
; THIS MODULE STARTS THE POOL IN SYSTEMS SUPPORTING KERNEL DATA SPACE.
;
; MODIFIED BY:
;
;	D. R. DONCHIN	23-NOV-81
;
;		DD134 -- ALWAYS DEFINE $POOL IN EXPOL MODULE
;
 
$POOL::				;REFERENCE LABEL FOR BOTTOM OF POOL
 
	.IF DF	K$$DAS
 
$SYBEG::.WORD	0		;LINK TO NEXT BLOCK IN FREE LIST
	.WORD	<<<C$$ORE*2>+3>&177774> ;LENGTH OF FREE BLOCK
	.BLKB	<<<C$$ORE*2>+3>&177774>-4 ;ALLOCATE REMAINING STORAGE
$SYTOP::			;LAST ADDRESS IN EXECUTIVE
 
	.ENDC
 
 
	.END